home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD019c.dsk / PAL.30245.LAND.MAR.83.A.bas < prev    next >
BASIC Source File  |  2003-06-12  |  4KB  |  48 lines

  1. 10  REM  : WANG INTERFACE HELP REQUEST
  2. 20  GOTO 40
  3. 30  VTAB 23: PRINT "PRESS RETURN TO CONTINUE.";: GET A$: RETURN 
  4. 40  TEXT : HOME 
  5. 50  REM  : INTRODUCTORY "TELETYPER" ROUTINE FROM "TIP DISK #1"  BY BEAGLE BROTHERS.
  6. 60 CURSR$ = "+>": SPEED= 210
  7. 70  FOR I = 1 TO  LEN(CURSR$):CURSR$ = CURSR$ + CHR$(8): NEXT 
  8. 80  HOME : GOSUB 140
  9. 90 A$ = "TO: FOLKS WANTING APPLESOFT TEXT EDITING                                        FROM: ATLANTA CODE TOAD                                                         SUBJECT: APPLESOFT TEXT EDITING INFO  ": GOSUB 110
  10. 100  PRINT : GOSUB 140: SPEED= 255: GOTO 150
  11. 110  FOR I = 1 TO  LEN(A$): INVERSE : PRINT CURSR$;: NORMAL :M$ =  MID$ (A$,I,1): PRINT M$;: IF M$ = " "  OR M$ = "."  THEN  FOR J = 1 TO 25 +150 *(M$ = "."): NEXT 
  12. 120  IF M$ < >" "  THEN  FOR J = 1 TO 2:S =  PEEK( -16336): NEXT 
  13. 130  NEXT : CALL  -868: PRINT : RETURN 
  14. 140 A$ = "": FOR I = 1 TO 40:A$ = A$ +"-": NEXT : GOSUB 110: RETURN 
  15. 150  PRINT "   MOST WORD PROCESSORS CAN BE USED TO AID YOUR PROGRAMMING.  FIRST YOU CAN USE THE FEATURES OF THE WORD PROCESSOR LIKE STRING SEARCH AND REPLACE AND THE EASY  LINE MANIPULATION. SECOND TO CREATE NEW"
  16. 160  PRINT "PROGRAMS. A KNOWLEDGE OF TEXT FILES AND BASIC FILES IS NEEDED TO UNDERSTAND HOW THIS PROCESS WORKS. A SHORT PROGRAM IS  INCLUDED HERE FOR FILES THAT ARE CURR-  ENTLY BASIC PROGRAMS. THIS PROGRAM USES"
  17. 170  GOSUB 30: HOME 
  18. 180  PRINT : PRINT "THE EXEC FEATURE OF THE APPLE TO CREATE A ROUTINE THAT CONVERTS THE BASIC PROGRAM TO TEXT SO THAT THE TEXT EDITOR CAN READ IT. THIS PTOGRAM APPENDS THREE LINES"
  19. 190  PRINT "TO THE BEGINNING OF YOUR PROGRAM. THE LINE NUMBERS ARE 0,1, AND 2. IF YOU ALREADY HAVE LINES IN YOUR PROGRAM THAT USE THOSE NUMBERS YOU MUST INCREASE THE LINE "
  20. 200  PRINT "NUMBERS TO 3 OR ABOVE.  FIRST TYPE IN AND RUN THE PROGRAM (OR JUST EXEC THE TCONROUTINE INCLUDED); IT WILL CREATE THE TCON PROGRAM WHICH WILL CONVERT BASIC TO TEXT. NEXT LOAD IN THE BASIC PROGRAM AND"
  21. 210  PRINT "TYPE IN 'EXEC TCON'; THE DISK WILL START SPINNING AND YOUR PROGRAM WILL BE CONVERTED. WHEN THE PROGRAM HAS BEEN CONVERTED, YOU CAN BOOT YOUR WORD PROCESSOR AND USE ITS FEATURES TO DEBUG YOUR PROGRAM."
  22. 220  PRINT "THE TEXT FILE NAME OF YOUR PROGRAM WILL BE 'FILE'.
  23. 230  GOSUB 30: HOME 
  24. 240  PRINT : PRINT "  AFTER YOU FINISH DEBUGGING/CODING YOUR PROGRAM ALL YOU NEED TO DO IS SAVE THE FILE. THE NEXT STEP INVOLVES CONVERTING YOUR FILE TO A BASIC PROGRAM AGAIN. THISSOUNDS HARD BUT IS ACTUALLY QUITE SIMPLE "
  25. 250  PRINT " AFTER DOS IS BOOTED YOU NEED TO TYPE 'NEW';THEN TYPE EXEC FOLLOWED BY THE FILE NAME.  THAT'S ALL - A MINUTE OR TWO LATER AFTER YOU HAVE SEEN MANY PROMPT MARKS, YOUR FILE WILL BE CONVERTED TO A BASIC"
  26. 260  PRINT "PROGRAM.  IF YOU ARE THROUGH YOU CAN DELETE THE TEXT FILE AND SAVE THE APPLESOFT PROGRAM WHICH IS NOW IN THE COMPUTER."
  27. 270  PRINT : PRINT " THE PROGRAM IS LISTED ON THE NEXT PAGE.  NOTE THAT A SINGLE QUOTE MARK HAS BEEN SUBSTITUTED FOR A DOUBLE QUOTE MARK. IF YOU TYPE IN THE PROGRAM USE DOUBLE QUOTES."
  28. 280  GOSUB 30: HOME 
  29. 290  PRINT : PRINT 
  30. 300  HTAB 7: PRINT "10 Q$ = CHR$ (34):D$ = CHR$ (4)"
  31. 310  HTAB 7: PRINT "20  PRINT D$;'OPEN TCON'"
  32. 320  HTAB 7: PRINT "30  PRINT D$;'WRITE TCON'"
  33. 330  HTAB 7: PRINT "100 PRINT '0  D$ = CHR$(4): PRINT D$;'Q$;'OPEN FILE';Q$;CHR$(13)"
  34. 340  HTAB 7: PRINT "110 PRINT '1 PRINT D$;'Q$;'WRITE FILE';Q$;': LIST 3-';CHR$(13)"
  35. 350  HTAB 7: PRINT "120 PRINT '2 PRINT D$;'Q$;'CLOSE FILE';Q$;': END';CHR$(13)"
  36. 360  HTAB 7: PRINT "130 PRINT 'RUN'"
  37. 370  HTAB 7: PRINT "140 PRINT '0'; CHR$(13): PRINT '1'; CHR$(13): PRINT '2'; CHR$(13)  
  38. 380  PRINT : PRINT "THE ORIGINAL IDEA CAME FROM 'COMPUTE MAGAZINE' IN AN ARTICLE BY MICHAEL GINSBERG.  HOPE THIS IDEA WORKS FOR YOU.............THE CODE TOAD"
  39. 390  GOSUB 30: HOME 
  40. 400  PRINT : PRINT : PRINT : PRINT : PRINT "IF SOFITE AND THE SOFT FOLKS HAVE ROOM ON THE DISK THE PROGRAM WILL BE LISTED AS TCON.PROG AND THE EXEC AS TCON.EXEC........THE CODE TOAD"
  41. 410  PRINT : PRINT : PRINT : HTAB 10: PRINT "DC LAND "
  42. 420  PRINT : HTAB 10: PRINT "3778 CUTLER DR"
  43. 430  PRINT : HTAB 10: PRINT "LAWRENCEVILLE,GA"
  44. 440  PRINT : HTAB 10: PRINT "30245"
  45. 450  PRINT : VTAB 23: PRINT "  <R>EVIEW REQUEST  <B>ACK TO PAL.MENU   ";: GET C$: PRINT C$: IF C$ = "R"  THEN 10
  46. 460  IF C$ = "B"  THEN  PRINT : PRINT  CHR$(4);"RUN PAL.MENU"
  47. 470  GOTO 450
  48. 480  END